10 POKE53281,12:POKE53280,12:PRINTCHR$(14) 15 POKE198,.:PRINT"[144][147]S[146]CREEN OR P[146]RINTER (S/P)?" 16 WAIT198,1:PRINT"[147]";:GETP$:IFP$="P"THENOPEN4,4,4 20 FORI=1TO22 30 READA$ 40 IFA$="[157]"THENGOSUB80:END 50 PRINTA$:IFP$="P"THENPRINT#4,A$ 60 NEXT 70 GOSUB80:GOTO20 80 PRINT" PRESS A KEY TO CONTINUE[146]"; 90 GETB$:IFB$=""THEN90 100 PRINT"[147]":RETURN 10000 DATA" [215][197][196][199][197] 64 [201][206][211][212][210][213][195][212][201][207][206][211] 10010 [131]" (null)REPARED BY ASCRED (null)AYBERGER 10020 DATA" [196]ECEMBER 4, 1984 10030 [131]" 10040 DATA"[204][207][193][196] [215][201][212][200]: [193][195][212][201][214][193][212][197] [215][201][212][200]: 10060 [131]" 10070 DATA"[204][207][193][196]'[215][197][196][199][197]-64-$7000.[195]',8,1 [211][217][211]7*4096 10080 [131]"(null)(null)ATNSTR$'(null)VALSTR$CHR$VAL-64-$8000.LEN',8,1 (null)(null)(null)8*4096 10090 DATA"[204][207][193][196]'[215][197][196][199][197]-64-$9000.[195]',8,1 [211][217][211]9*4096 10100 [131]"(null)(null)ATNSTR$'(null)VALSTR$CHR$VAL-64-$LEN000.LEN',8,1 (null)(null)(null)12*4096 10110 DATA" 10120 [131]" LEN(null)(null)(null)ATN(null)STR$(null) 10130 DATA" 10140 [131]"(null)(null)(null)(null)ATN(null) VAL(null)ATN(null)(null)(null)VAL/LEN(null)(null)(null)VAL(null)(null)(null) 10150 DATA" 10160 [131]">ATNSTR$MID$(null)(null)(null) LENOLOR PEEKAR FOR 10170 DATA" ADJUSTING TV/ 10180 [131]" MONITOR 10190 DATA" 10200 [131]">ATN(null)(null)(null) RIGHT$NCREMENT# >AUTO10 WILL 10210 DATA" GIVE LINE 10220 [131]" NUMBERS 10230 DATA" INCREMENTED 10240 [131]" BY 10 FOLLOWING 10250 DATA" THE ENTRY OF A 10260 [131]" LINE NUMBER 10270 DATA" WITH A BASIC 10280 [131]" COMMAND. RIGHT$T IS 10290 DATA" TERMINATED 10300 [131]" BY ENTERING ATN(null)(null)(null) 10310 DATA" WITHOUT A 10320 [131]" INCREMENT#. 10330 DATA" 10340 [131]">LEN(null)(null)STR$ (null)AME AS (null)(null)(null)64738 10350 DATA" [212]HE [215]EDGE CAN BE 10360 [131]" REACTIVATED WITH 10370 DATA" THE APPROPRIATE 10380 [131]" (null)(null)(null) COMMAND (7, 10390 DATA" 8,9,OR12*4096) 10400 [131]" 10410 DATA">[195][207][204][207][213][210]#,#,# 1ST # = [207]UTSIDE 10420 [131]" BOADER COLOR 10430 DATA" 2ND # = [211]CREEN 10440 [131]" BACKGROUND COLOR 10450 DATA" 3RD # = [195]URSOR 10460 [131]" COLOR 10470 DATA" 10480 [131]">STR$VAL(null) LINE# RANGE >DEL-100 WILL 10490 DATA" DELETE ALL LINES 10500 [131]" UP TO AND 10510 DATA" INCLUDING LINE 10520 [131]" 100. 10530 DATA" >DEL100-200 WILL 10540 [131]" DELETE LINES 100 10550 DATA" THROUGH AND 10560 [131]" INCLUDING LINE 10570 DATA" 200. 10580 [131]" >DEL200- WILL 10590 DATA" DELETE LINES 200 10600 [131]" THROUGH THE LAST 10610 DATA" PROGRAM LINE. 10620 [131]" 10630 DATA">[196][211] [210]EADS THE DISK 10640 [131]" ERROR CHANNEL 10650 DATA" AND DISPLAYS 10660 [131]" ITS STATUS. 10670 DATA" 10680 [131]">LEFT$VAL(null)(null) (null)ROVIDES A LIST 10690 DATA" OF COMMANDS 10700 [131]" AVAILABLE. 10710 DATA" 10720 [131]">LEFT$VAL(null) #(STR$EC OR $LEFT$EX) >HEX49152 WILL 10730 DATA" GIVE THE [200]EX 10740 [131]" EQIVALENT 10750 DATA" ($C000). 10760 [131]" >HEX$C000 WILL 10770 DATA" GIVE THE [196]ECIMAL 10780 [131]" EQIVALENT 10790 DATA" 10800 [131]">LEFT$(null)(null)(null)/CMD/,LINE RANGE >HUNT/POKE/ WILL 10810 DATA" LIST EVERY LINE 10820 [131]" WHERE A 'POKE' 10830 DATA" COMMAND OCCURS 10840 [131]" WITHIN YOUR 10850 DATA" PROGRAM. 10860 [131]" 10870 DATA">HUNT/POKE/,200-400 WILL LIST EVERY 10880 [131]" LINE BETWEEN 200 10890 DATA" AND 400 THAT HAS 10900 [131]" A 'POKE' COMMAND 10910 DATA" IN IT. 10920 [131]">LEFT$(null)(null)(null)'STRING',LN RANGE >HUNT'RIGHT$(null)' WILL 10930 DATA" FIND AND DISPLAY 10940 [131]" EVERY LINE 10950 DATA" CONTAINING THE 10960 [131]" LETTERS 'IT'(EG 10970 DATA" IT, EXIT, ETC) 10980 [131]" 10990 DATA">[204][207][207][203] [212]HIS COMMAND 11000 [131]" PROVIDS A LIST 11010 DATA" OF PROGRAM 11020 [131]" VARIABLES AND 11030 DATA" THEIR CURRENT 11040 [131]" VALUES. (null)NLY 11050 DATA" VARIABLES THAT 11060 [131]" HAVE BEEN 11070 DATA" DEFINED (USED) 11080 [131]" ARE DISPLAYED. 11090 DATA" [212]HE VAIABLES ARE 11100 [131]" PRINTED IN SUCH 11110 DATA" A WAY THAT THEY 11120 [131]" CAN BE EDITED 11130 DATA" WITH THE SCREEN 11140 [131]" EDITOR SO THAT A 11150 DATA" PROGRAM CAN BE 11160 [131]" STOPPED, EDITED 11170 DATA" TO NEW VALUES, 11180 [131]" AND THE 'LEN(null)(null)(null)' 11190 DATA" COMMAND GIVEN TO 11200 [131]" CONTINUE THE 11210 DATA" PROGRAM WITH THE 11220 [131]" NEW VALUES. 11230 DATA" 11240 [131]">(null)VAL(null) ??? RIGHT$ HAVE NOT 11250 DATA" BEEN ABLE TO GET 11260 [131]" THIS TO WORK. 11270 DATA" 11280 [131]">(null)VAL(null)CHR$VAL'FILENAME' >MERGE'SETUP' 11290 DATA" WILL MERGE THE 11300 [131]" PROGRAM 'SETUP' 11310 DATA" CONTAINED ON THE 11320 [131]" DISK WITH THE 11330 DATA" PROGRAM YOU 11340 [131]" HAVE IN THE 11350 DATA" COMPUTER'S 11360 [131]" MEMORY. 11370 DATA" 11380 [131]">(null) 1ST ROUND 11390 DATA">[206]'FILENAME' 2ND ROUND 11410 [131]" >(null) WILL PRINT 11420 DATA" FILENAME(OR LAST 11430 [131]" VARIABLE HUNTED 11440 DATA" FOR) TO THE 11450 [131]" SCREEN WITHIN '' 11460 DATA" AND FOLLOWED BY 11470 [131]" ,8. RIGHT$T CAN THEN 11480 DATA" BE USED FOR 11490 [131]" SAVING/LOADING 11500 DATA" THE FILEMAME. 11510 [131]" 11520 DATA">[207][198][198] [196]IACTIVATES THE 11530 [131]" (null)EDGE PROGRAM. 11540 DATA" 11550 [131]">(null)VAL(null)(null)(null) ST#,INC#,RANGE >RENUM10,10 WILL 11560 DATA" RENUMBER THE 11570 [131]" ENTIRE PROGRAM 11580 DATA" STARTING WITH 11590 [131]" LINE 10 AND 11600 DATA" INCREMENTED BY 11610 [131]" 10. 11620 DATA" 11630 [131]">RENUM150,2,100-200 WILL RENUMBER 11640 DATA" LINE 100 11650 [131]" THRU 200 11660 DATA" STARTING WITH 11670 [131]" 150 AND 11680 DATA" INCREMENTED 11690 [131]" BY 2 11700 DATA" 11710 [131]">(null)ATN(null)VAL'FILENAME' >SAVE'TEST WILL 11720 DATA" SAVE A FILE 11730 [131]" NAMED 'TEST' AND 11740 DATA" DISPLAY THE 11750 [131]" ERROR CHANNEL 11760 DATA" READING. 11770 [131]" >SAVE'@0:TEST 11780 DATA" WILL DO A SAVE 11790 [131]" AND REPLACE OF 11800 DATA" THE FILE NAMED 11810 [131]" 'TEST' AND 11820 DATA" DISPLAY THE 11830 [131]" ERROR CHANNEL 11840 DATA" READING. 11850 [131]" 11860 DATA">[211][197][206][196]'DISK COMMAND >SEND'S0:TEST 11870 [131]" WILL SCRATCH THE 11880 DATA" FILE NAMED 11890 [131]" 'TEST' FROM THE 11900 DATA" DISK. 11910 [131]" >SEND'N0:FIVE,GG 11920 DATA" WILL FORMAT A 11930 [131]" DISKETTE AND 11940 DATA" IDENTIFY IT AS 11950 [131]" 'FIVE' WITH A 11960 DATA" DISK ID OF 'GG' 11970 [131]" >SEND'(null)0:NEW=OLD 11980 DATA" WILL CHANGE THE 11990 [131]" NAME OF A 12000 DATA" FILE FROM 'OLD' 12010 [131]" TO 'NEW'. 12020 DATA" [193]NY OF THE 1541 12030 [131]" DISK COMMANDS 12040 DATA" CAN BE SENT 12050 [131]" USING THE >SEND 12060 DATA" COMMAND. [211]EE 12070 [131]" YOUR MANUAL 12080 DATA" OTHER COMMANDS. 12090 [131]" 12100 DATA">[211][212][193][210][212]'FILENAME >START'PLAYBALL 12110 [131]" WILL GIVE YOU 12120 DATA" THE STARTING 12130 [131]" ADDRESS IN LEFT$EX 12140 DATA" AND [196]ECIMAL FOR 12150 [131]" THE PROGRAM 12160 DATA" CALLED 12170 [131]" 'PLAYBALL' 12180 DATA" 12190 [131]">$ (null)RINTS THE DISK 12200 DATA" DIRECTORY TO THE 12210 [131]" SCREEN WITHOUT 12220 DATA" DESTORYING ANY 12230 [131]" PROGRAM RESIDING 12240 DATA" IN MEMORY. [212]HE 12250 [131]" '?' AND '*' CAN 12260 DATA" BE USED WITH THE 12270 [131]" COMMAND FOR 12280 DATA" PATTERN 12290 [131]" MATCHING. 12300 DATA" 12310 [131]">/'FILENAME >/'MLX WILL 12320 DATA" LOAD A PROGRAM 12330 [131]" CALLED 'MLX'. 12340 DATA" 12350 [131]">/'SETUP':SHIFTED RUN/STOP WILL LOAD 12360 DATA" AND RUN A 12370 [131]" BASIC 12380 DATA" PROGAM. 12385 [131]" 12390 DATA" [205][204] PROGRAMS WILL 12400 [131]" BE LOADED TO 12410 DATA" THEIR PROPER 12420 [131]" LOAD ADDRESS 12430 DATA" USING THIS 12440 [131]" COMMAND. 12450 DATA" 12460 [131]"CMD